Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/MacPerl 5.0.3/Preinstalled MacPerl (FAT)/lib/auto/POSIX/fstat.al

Text File | 1995-08-04 | 243 b | 14 lines | [once/pt: ]

# NOTE: Derived from :::lib:POSIX.pm.  Changes made here will be lost.
package POSIX;

sub fstat {
    usage "fstat(fd)" if @_ != 1;
    local(*TMP);
    open(TMP, "<&$_[0]");        # Gross.
    local(@l) = stat(TMP);
    close(TMP);
    @l;
}

1;